shr.el: Fix last change.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 294e967ef7f4a2108916dd326c15321306c90c7e..ef3881527399e28e3d3b05f1e08b8a316867bc32 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,6 +1,6 @@
 2010-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-       * shr.el: Load kinsoku.
+       * shr.el: Load kinsoku if necessary.
        (shr-kinsoku-shorten): New internal variable.
        (shr-find-fill-point): Make kinsoku shorten text line if
        shr-kinsoku-shorten is bound to non-nil.

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 50e75323dbad30874f0c5fe593fc7eb03845e275..d16899c14b77569b252c68c06a0ed5812964cde1 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -32,7 +32,8 @@
 
 (eval-when-compile (require 'cl))
 (require 'browse-url)
-(load "kinsoku" nil t)
+(unless (aref (char-category-set (make-char 'japanese-jisx0208 33 35)) ?>)
+  (load "kinsoku" nil t))
 
 (defgroup shr nil
   "Simple HTML Renderer"